home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swaga_c.zip
/
ANSI.SWG
/
0013_Displaying THEDRAW Images.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
746b
|
19 lines
{▐ Oh, about the thedraw screens, here's
▐ a bit of code in which you can load up a File saved as O)bject, P)ascal.
▐ Oh this is saved as Uncrunched not Crunched.
▐
▐ {$L,TESTFile.OBJ} {This is the File you saved in thedraw as a Object}
{It is linked directly into the code at Compile time}
Procedure ImageData; external; {The imagedata Procedure you can}
{define the name of this Procedure}
{when you save the File in TheDraw}
begin
Move (Pointer(@ImageData)^,ptr($B800,0)^,5000);
Readln;
end.
{By using the Move instruction, the placement of the image
is restricted to full screens or essentially 80 Character lines.
}